#!/usr/bin/perl
# ES/Nif.pl
use warnings;
use strict;

use ES::Nif;

print "Checking $ARGV[0] ";
if (ES::Nif::check($ARGV[0])) {
   print "Correct";
} else {
   chop($ARGV[0]);   # This chops off letter
   print "Incorrect. Letter should be ", ES::Nif::letter($ARGV[0]);
}
print "\n";
